home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / STRGDIAL._ / STRGDIAL.
Encoding:
Text File  |  2001-03-02  |  703 b   |  22 lines
  1. 10    ! ***********************************************
  2. 20    ! Example: STRING Dialog
  3. 30    !
  4. 40    ! This program creates a STRIG dialog. If you move
  5. 50    ! the mouse cursor or tab into the text field below
  6. 60    ! the prompt, you can input text into the dialog that
  7. 70    ! is returned through the S$ string.
  8. 80    !
  9. 90    ! ***********************************************
  10. 100   !
  11. 110   DIM P$[25],S$[50]
  12. 120   INTEGER Btn
  13. 130   P$="Please enter your name"
  14. 140   DIALOG "STRING",P$,Btn;SET ("TITLE":" Example: STRING Dialog"),RETURN ("VALUE":S$)
  15. 150   SELECT Btn
  16. 160   CASE 0
  17. 170     DISP "Name entered:",S$
  18. 180   CASE 1
  19. 190     DISP "Input canceled"
  20. 200   END SELECT
  21. 210   END
  22.